home *** CD-ROM | disk | FTP | other *** search
- /*ident "@(#)ctrans:incl/generic.h 1.1.6.2" */
- /**************************************************************************
- Copyright (c) 1984 AT&T
- All Rights Reserved
-
- THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
-
- The copyright notice above does not evidence any
- actual or intended publication of such source code.
-
- *****************************************************************************/
-
- #ifndef __GENERIC__
-
- #define __GENERIC__ 1
-
- /* macros to paste tokens together to form new names */
- /* BSD and SystemV cpp's have different mechanisms for pasting tokens
- together: worse yet, suns run under BSD but have SYSV mechanism.
- ANSI C has defined a new way.
- */
-
- #ifdef applec // for Macintosh
- /* ANSI C preprocessors will not expand the arguments to a macro;
- * so we need to add a level of indirection to allow macro expansion of
- * arguments. (Reiser preprocessors allowed the first arg to be expanded;
- * this method will allow both to be expanded, which is better than none.)
- */
- #define name2(a,b) _name2_aux(a,b)
- #define _name2_aux(a,b) a##b
- #define name3(a,b,c) _name3_aux(a,b,c)
- #define _name3_aux(a,b,c) a##b##c
- #define name4(a,b,c,d) _name4_aux(a,b,c,d)
- #define _name4_aux(a,b,c,d) a##b##c##d
-
- #else
- #ifdef sun
- /*System V way: although BSD is true*/
-
- #define name2(a,b) a/**/b
- #define name3(a,b,c) a/**/b/**/c
- #define name4(a,b,c,d) a/**/b/**/c/**/d
-
- #else
- #ifdef BSD
- /*BSD way:*/
-
- #define name2(a,b) a\
- b
- #define name3(a,b,c) a\
- b\
- c
- #define name4(a,b,c,d) a\
- b\
- c\
- d
-
- #else
- /*System V way:*/
- #define name2(a,b) a/**/b
- #define name3(a,b,c) a/**/b/**/c
- #define name4(a,b,c,d) a/**/b/**/c/**/d
- #endif
- #endif
- #endif
-
- #define declare(a,t) name2(a,declare)(t)
- #define implement(a,t) name2(a,implement)(t)
- #define declare2(a,t1,t2) name2(a,declare2)(t1,t2)
- #define implement2(a,t1,t2) name2(a,implement2)(t1,t2)
-
-
- extern genericerror(int,char*);
- typedef int (*GPT)(int,char*);
- #define set_handler(generic,type,x) name4(set_,type,generic,_handler)(x)
- #define errorhandler(generic,type) name3(type,generic,handler)
- #define callerror(generic,type,a,b) (*errorhandler(generic,type))(a,b)
- #endif
-